﻿Imports IP.Core.IPCommon
Public Class CSystemAdminFacade
    Public Shared Sub displayDecentralization()
        Dim v_frm_phan_quyen_he_thong As f111_system_admin_main = New f111_system_admin_main
        If (New CApplicationContext().CanUseControl(v_frm_phan_quyen_he_thong.Name, v_frm_phan_quyen_he_thong.Name, "")) Then
            v_frm_phan_quyen_he_thong.display()
        Else
            BaseMessages.MsgBox_Infor("Bạn chưa có quyền sử dụng chức năng này")
        End If

    End Sub
    Public Shared Sub displayUserGroups()
        Dim v_frm_user_group As f109_ht_nhom_nguoi_su_dung = New f109_ht_nhom_nguoi_su_dung
        If (New CApplicationContext().CanUseControl(v_frm_user_group.Name, v_frm_user_group.Name, "")) Then
            v_frm_user_group.display_user_groups()
        Else
            BaseMessages.MsgBox_Infor("Bạn chưa có quyền sử dụng chức năng này")
        End If

    End Sub
    Public Shared Sub displaySystemAdmin()
        Dim v_frm_system_admin As f111_system_admin_main = New f111_system_admin_main
        If (New CApplicationContext().CanUseControl(v_frm_system_admin.Name, v_frm_system_admin.Name, "")) Then
            v_frm_system_admin.display()
        Else
            BaseMessages.MsgBox_Infor("Bạn chưa có quyền sử dụng chức năng này")
        End If

    End Sub
    Public Shared Sub displayDictionary()
        Dim v_frm_tu_dien As f100_TuDien = New f100_TuDien
        If (New CApplicationContext().CanUseControl(v_frm_tu_dien.Name, v_frm_tu_dien.Name, "")) Then
            v_frm_tu_dien.ShowDialog()
        Else
            BaseMessages.MsgBox_Infor("Bạn chưa có quyền sử dụng chức năng này")
        End If
    End Sub
    Public Shared Sub displayDictionaryInContainerForm(ByVal ip_objParentForm As Form)
        Dim v_frm_tu_dien As f100_TuDien = New f100_TuDien
        v_frm_tu_dien.MdiParent = ip_objParentForm
        v_frm_tu_dien.Dock = DockStyle.Fill
        v_frm_tu_dien.WindowState = FormWindowState.Maximized
        v_frm_tu_dien.displayDataMaintain(Nothing)
    End Sub
    Public Shared Sub displayCalendar()
        Dim v_frm_calendar As f040_cm_dm_calendar = New f040_cm_dm_calendar
        v_frm_calendar.display()
    End Sub
    Public Shared Sub displayChangePassword()
        Dim v_frm_change_password As f203_thay_doi_mat_khau = New f203_thay_doi_mat_khau
        v_frm_change_password.displayLogin()
    End Sub
End Class

